use "~/tesis_jurisprudencial.dta"

#delimit ;
twoway (scatter rate year, xline(2008, lpattern(dash)) sort msize(small) msymbol(circle) mcolor(gs8)) ///
(lowess rate year if top == 1, bwidth(0.75) lcolor(black) lwidth(medium) lpattern(shortdash)) ///
(lowess rate year if top == 2, bwidth(0.75) lcolor(black) lwidth(medium) lpattern(dash)) ///
(lowess rate year if top == 3, bwidth(0.75) lcolor(black) lwidth(medium) lpattern(dot)) ///
(lowess rate year if top == 4, bwidth(0.75) lcolor(black) lwidth(medium) lpattern(solid)) ///
(lowess rate year if top == 5, bwidth(0.75) lcolor(black) lwidth(medium) lpattern(longdash_dot)), ///
xtitle("Year") ///
title("Jurisprudential Theses on Criminal Law, 1988-2019", size(medium)) ///
graphregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) ///
plotregion(fcolor(white) ifcolor(none)) ///
legend(label(1 "Rate") ///
label(2 "Topic 1") ///
label(3 "Topic 2") ///
label(4 "Topic 3") ///
label(5 "Topic 4") ///
label(6 "Topic 5"))

